home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / mc tester (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.4 KB  |  113 lines
  1. 10 poke53272,21:poke783,peek(783)and254
  2. 20 poke53280,5:poke53281,1:printchr$(31)
  3. 30 goto180
  4. 40 poke781,6:poke782,0:sys65520
  5. 50 forx=1to640:print" ";:next:return
  6. 180 printchr$(147)
  7. 190 poke781,5:poke782,8:sys65520:print"multiple choice tester"
  8. 200 poke781,8:poke782,19:sys65520:print"by"
  9. 205 poke781,11:poke782,14:sys65520:print"donna k. woody"
  10. 210 poke781,23:poke782,3:sys65520:print"would you like instructions (y/n)?[160]";:
  11. 220 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then220
  12. 230 ifa$="y"thengosub5000
  13. 240 printchr$(147)
  14. 241 print"enter test file name":print"(x to exit)"
  15. 242 input fi$:iffi$="x"then810
  16. 243 iflen(fi$)<1then240
  17. 244 gosub10000:ifcz=62then242
  18. 245 poke781,10:poke782,0:sys65520:print"please wait......."
  19. 247 print:print"loading file......."
  20. 250 open4,8,4,"0:"+fi$+",seq,read"
  21. 270 input#4,nu
  22. 275 dimw$(nu),s1$(nu),s2$(nu),s3$(nu),an$(nu)
  23. 280 fori=1tonu
  24. 290 input#4,w$(i),s1$(i),s2$(i),s3$(i),an$(i)
  25. 300 nexti
  26. 310 close4
  27. 311 r=o:i=0
  28. 312 fori=1tonu
  29. 314 printchr$(147):printtab(8)"multiple choice tester"
  30. 315 printchr$(19):poke781,2:poke782,33:sys65520:printr"/"i
  31. 332 poke781,4:poke782,13:sys65520:print"question #"i:print
  32. 334 printw$(i):print
  33. 340 print"a. "s1$(i):print
  34. 350 print"b.[160]"s2$(i):print
  35. 360 print"c. "s3$(i):print
  36. 370 print:print" -->[160]";
  37. 380 poke198,0:wait198,1:geta$:printa$
  38. 385 ifa$<>"a"anda$<>"b"anda$<>"c"then380
  39. 430 printchr$(144)
  40. 432 ifa$=an$(i)thenwr$="right!!!"
  41. 434 ifa$<>an$(i)thenwr$="wrong."
  42. 436 poke781,18:poke782,10:sys65520:print"          [157][157][157][157][157][157][157][157][157][157]"wr$
  43. 440 ifa$=an$(i)then485
  44. 480 poke781,20:poke782,0:sys65520:print"correct answer is "an$(i)
  45. 485 ifa$=an$(i)thenr=r+1
  46. 490 ifa$<>an$(i)thenprint""
  47. 492 printchr$(31)
  48. 500 poke781,23:poke782,1:sys65520:print"press space bar to continue.";:
  49. 510 poke198,0:wait198,1:geta$:ifa$<>" "then510
  50. 520 poke781,18:poke782,10:sys65520:print"            "
  51. 530 nexti
  52. 600 printchr$(147):printtab(8)"multiple choice tester"
  53. 605 pc=int((r/nu)*100)
  54. 610 ifpc>=90thenprintchr$(144)
  55. 620 poke781,3:poke782,0:sys65520:print"90% - 100% -- excellent! ":printchr$(31)
  56. 630 ifpc>=70andpc<90thenprintchr$(144)
  57. 640 poke781,5:poke782,0:sys65520:print"70% - 80% -- very good!":printchr$(31)
  58. 650 ifpc>=60andpc<70thenprintchr$(144)
  59. 660 poke781,7:poke782,0:sys65520:print"60% - 70% -- fair":printchr$(31)
  60. 680 ifpc>=50andpc<60thenprintchr$(144)
  61. 690 poke781,9:poke782,0:sys65520:print"50% - 60% -- not too good"
  62. 700 printchr$(31)
  63. 710 ifpc<50thenprintchr$(144)
  64. 720 poke781,11:poke782,0:sys65520:print" 0% - 50% -- we know you didn't cheat"
  65. 730 printchr$(31)
  66. 810 poke781,20:poke782,0:sys65520:iffi$="x"then820
  67. 815 print"press <r> to repeat the test."
  68. 820 print"press <m> to go back to loadstar.":print"press <a> for another test."
  69. 830 poke198,0:wait198,1:geta$:ifa$<>"r"anda$<>"m"anda$<>"a"then830
  70. 840 ifa$="r"thenprintchr$(147):goto311
  71. 845 ifa$="a"thenprintchr$(147):clr:goto240
  72. 850 ifa$="m"thenprintchr$(147):goto63000
  73. 5000 rem * instructions
  74. 5010 fori=1to2
  75. 5015 printchr$(147)
  76. 5020 forj=1to9
  77. 5030 reada$:printa$:print
  78. 5040 nextj
  79. 5050 poke781,23:poke782,6:sys65520:print"press space bar to continue";
  80. 5060 poke198,0:wait198,1:geta$:ifa$<>" "then5060
  81. 5070 nexti
  82. 5080 return
  83. 6000 data"  this program will help you review or"
  84. 6005 data"learn any subject you want.  you can"
  85. 6007 data"create multiple choice test files"
  86. 6010 data"using the 'mc test maker' program."
  87. 6012 data"then just enter the correct file name"
  88. 6015 data"when asked for it in this program"
  89. 6020 data"and review the subject you want."
  90. 6022 data"  after answering the question, you"
  91. 6025 data"will be told if you were right or wrong"
  92. 6030 data"and will be given the correct answer."
  93. 6032 data"  your score is shown in the upper"
  94. 6035 data"right-hand corner.  after the test is"
  95. 6037 data"over, you will be given a score based"
  96. 6040 data"on the number of questions you answered"
  97. 6042 data"correctly.  answers are entered with a"
  98. 6045 data"single keystroke.  you do not need to"
  99. 6050 data"press the <return> key."
  100. 6052 data"         have fun and good luck!"
  101. 10000 open15,8,15
  102. 10010 open4,8,4,"0:"+fi$+",seq,read":close4
  103. 10015 input#15,cz,mz$,sz,tz:close15
  104. 10020 ifcz=0thenreturn
  105. 10030 ifcz=62thenprintchr$(147):print"that file does not exist on this disk."
  106. 10040 print:print:print"do you want to continue (y/n)?[160]";:poke198,0:wait198,1:geta$:printa$
  107. 10050 ifa$="y"thenprintchr$(147):return
  108. 10060 ifa$="n"thenprintchr$(147):goto63000
  109. 10070 print"[145][145][145][145]":goto10040
  110. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  111. 63010 poke631,13:poke632,13:poke198,2
  112. 63020 end
  113.